home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 176-200 / scopedisk180 / arexxtutorial / minrexx / sample.fd < prev    next >
Text File  |  1995-03-19  |  182b  |  13 lines
  1. /* draw something with freedraw */
  2.  
  3. address 'freedraw'
  4.  
  5. color = 0
  6.  
  7. do i = 20 to 400
  8.    'Color ' color
  9.    color = color + 1
  10.    if color > 3 then color = 0
  11.    'Line ' 20 i i 400
  12. end i
  13.